//An example on how to return multiple values//from a function using a list.declare function getMultipleValues() as stringSub Main()	dim i as string	dim r as list   	r = getMultipleValues()	msgbox(r["name"] & " " & r["lname"] & " of age " & r["age"])end subFunction getMultipleValues() as string	dim name as string,lname as string	dim age as integer	name = "Jose"	lname = "Cuevas"	age = 30	return list(name,lname,age)End Function